Meldungen anzeigen
Meldungen lassen sich komfortabel und einfach mit drei Funktionsbausteinen anzeigen. Das Beispielprogramm zeigt die Verwendung.
REPORT zzenno26.
DATA:
l_corr_wanted,
l_exit_command TYPE bal_s_excm,
l_posnr TYPE posnr.
START-OF-SELECTION.
CALL FUNCTION ‘MESSAGES_INITIALIZE’.
l_posnr = 1.
PERFORM add_message USING ‘S’ ‘030’ space space space space.
PERFORM add_message USING ‘W’ ‘041’ ‘TZTS1’ space space space.
l_posnr = 2.
PERFORM add_message USING ‘I’ ‘102’ ‘TXT’ ‘X1’ ‘TAB3’ space.
PERFORM add_message USING ‘W’ ‘042’ space space space space.
PERFORM add_message USING ‘S’ ‘035’ space space space space.
PERFORM add_message USING ‘E’ ‘033’ space space space space.
CALL FUNCTION ‘MESSAGES_SHOW’
EXPORTING
corrections_option = ‘X’
corrections_func_text = ‘Bearbeiten’
show_linno = ‘X’
show_linno_text_len = ‘3’
i_use_grid = ‘X’
i_amodal_window = ‘ ‘
IMPORTING
corrections_wanted = l_corr_wanted
e_exit_command = l_exit_command
EXCEPTIONS
no_messages = 2
OTHERS = 3.
*———————————————————————*
* FORM add_message *
*———————————————————————*
FORM add_message USING value(msgty)
value(msgno)
value(msgv1)
value(msgv2)
value(msgv3)
value(msgv4).
CALL FUNCTION ‘MESSAGE_STORE’
EXPORTING
arbgb = ‘V0’
msgty = msgty
msgv1 = msgv1
msgv2 = msgv2
msgv3 = msgv3
msgv4 = msgv4
txtnr = msgno
zeile = l_posnr
EXCEPTIONS
OTHERS = 3.
ENDFORM.
- 7. December: Excel Racing Simulation – Root Vole Race - 7. Dezember 2024
- 5. December: ABAPConf - 5. Dezember 2024
- 4. December: Only a lazy developer is a good developer - 4. Dezember 2024